#!/usr/bin/env perl
use 5.10.0;
use strict;

for (1..10) {
    my $result = `curl -s "http://api.map.baidu.com/geocoder/v2/?ak=DC812b54cbd612b10237d8716794d923&callback=renderOption&output=json&address=%E7%99%BE%E5%BA%A6%E5%A4%A7%E5%8E%A6&city%20%20%20%20=%E5%8C%97%E4%BA%AC%E5%B8%82"`;
    print $result;
}
